00100	. DEVICE XGP    
00200	.spacing 20*5 mills;
00300	.EVERY HEADING(,{PAGE},)
00400	.AREA TEXT LINES 4 TO 40
00500	.FONT 1 "MBIG[HHA,LCS]"
00600	.font 2 "BMETI[HHA,LCS]"
00700	.font 4 "BMUS[HHA,LCS]"
00800	.!XGPLFTMAR←400
00900	.PORTION MAIN;
01000	.PLACE TEXT;
01100	.PAGE FRAME 138 WIDE 106 HIGH;
01200	.COUNT PAGE FROM 1 TO 999;
01300	.COMPACT
01400	.<< Put in a footnote. >>
01500	.
01600	.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
01700	.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
01800	.
01900	.FOOTSEP ← "__________";
02000	.AT "$$" ENTRY "$"
02100	.	⊂
02200	.	NEXT FOOTNOTE;
02300	.	FOOTNOTE!;
02400	.	SEND FOOT
02500	.		⊂
02600	.		BEGIN "NEXT FOOTNOTE"
02700	.		SELECT 1;
02800	.		SINGLE SPACE
02900	.		SPACING 0 MILLS
03000	.		INDENT 0,0,0;
03100	.		(FOOTNOTE! & " ");
03200	ENTRY
03300	.		END "NEXT FOOTNOTE";
03400	.		⊃;
03500	.	⊃;
03600	.
03700	.TURN ON "%↓_↑↓[&]","α"
     

00100	.PAGE←108
00200	.NEXT PAGE
00600	.CENTER
00700	⊂⊗⊃L[α%0.24,α%-16.80](17,22):MOZ2.PLT[C9,LCS]⊂⊗⊃